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G .PROG. M-II 2/20/82 

7 .BY S. KENDALL 

8 . EUER CHANGING CROSS 
10 CLEAR ; BC=1 IS 

20 FOR A=12T0 24STEP 2 
30 FOR C=1T0 30 
40 B=RND <A)b2 
52 FOR B=-50TO 50STEP 10 
54 BOX D , B, B , B, 3 
56 NEXT D 

70 FOR E=-30TQ 30STEP 10 
72 BOX 0,E,B,B,3 
74 NEXT E 
80 NEXT C 

84 FOR W=1TQ 600 ; NEXT W 
30 BC=RND C 17 )b8+116 
32 BOX 0,0, 158,86,3 
100 NEXT A 
110 STOP 
120 .WAIT FOR - 
130 . : RETURN ; RUN GO 

140 . ON SCREEN - 
>: RETURN 



